Option Explicit
Sub Q_Sample062()
    Dim a As tagPOINT
    GetCursorPos a
    Range("A1").Resize(, 2).Value = Array(a.X, a.Y)
End Sub